program pgm (input, output) ;
		
	var
		prof_max:integer;
		profondeur:integer;

			

		
	procedure ProcedureRecursive ;
		begin
			if profondeur < prof_max then
				begin
					profondeur := profondeur + 1;
					write ( "Profondeur courante a ");
					writeln ( profondeur );
					ProcedureRecursive;
				end
		end ;
	
	begin
		writeln("Exemple de fonction récursive");
		write("Saisissez la profondeur a atteindre ");
		read(prof_max);
		writeln(prof_max);
		writeln;
		write("Appel sur profondeur a ");
		writeln(prof_max);
		writeln;
		profondeur := 0;
		ProcedureRecursive;
	end.

































